
rm(list=ls())

#packages used.
library(here)
library(tidyverse)
library(car)
library(modelsummary)
library(countrycode)
library(plotrix)
library(lme4)
library(texreg)


#set working directory
here::i_am("replication_material_CUP.Rproj")

getwd()

#Individuals scripts ####

#`download data` downloads data from qualtrics
if(!file.exists("./nonesharable_data/trade_clean.RDS")){
  source("rcode/prep_trade_final.R")
}

if(!file.exists("./nonesharable_data/unga_clean.RDS")){
  source("rcode/prep_unga_final.R")
}

source("rcode/latinobarometro_final.R")

source("rcode/pela_final.R")
